(mail-extract-address-components): Don't downcase

the domain part of the address.

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 6b0ba81cb9e76c58415ffc8a4b3aa053d1fbebb0..85700097f1c2043aa5fb3a506ae0ec63c1746085 100644 (file)
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1174,8 +1174,6 @@ If ADDRESS contains more than one RFC-822 address, only the first is
             (setq %-pos (cdr %-pos))))
 
       (setq %-pos (nreverse %-pos))
-      ;; RFC 1034 doesn't approve of this, oh well:
-      (downcase-region (or (car %-pos) @-pos (point-max)) (point-max))
       (cond (%-pos                     ; implies @-pos valid
             (setq temp %-pos)
             (catch 'truncated